Sunday l(f n January 1999. 

The Big Letters Program (Part 1) 

Copies a message on an EDSAC tape into memory a line at a time and then prints each line in big 
letters on the teleprinter. All lines are terminated by a line-feed except for the final line which is 
terminated by a blank tape character. The big letters are 5 rows high and vary in width. All characters 
on the teleprinter may be used (including letter shift and figure shift) except for carriage returns which 
are ignored. The output of the message "#G*!HELLO!THERE!#G&" is given below. 

Example Output: 



BIG LETTERS 

BY 

MARTIN J. SLUCUTT 



YOUR MESSAGE WILL FOLLOW SHORTLY... 
LOADING, PLEASE WAIT... 



# # 


H H 


EEEEE 


L 


L 


OOO 


TTTTT 


H H 


EEEEE 


RRRR 


EEEEE 


# # 


###### 


H H 


E 


L 


L 





T 


H H 


E 


R R 


E 


###### 


# # 


HHHHH 


EEE 


L 


L 





I 


HHHHH 


EEE 


RRRR 


EEE 


# # 


###### 


H H 


E 


L 


L 





T 


H H 


E 


R R 


E 


###### 


# # 


H H 


EEEEE 


LLLLL 


LLLLL 


000 


T 


H H 


EEEEE 


R R 


EEEEE 


# # 



Make-up of the Program Tape: 




@& 
@& 
@& 
@& 
@& 
@& 
@& 
@& 
@& 
@& 



ZAAAAAAAAAAAAAAAAAAAZ * 
C*! ! ! ! BIG! LETTERS! ! ! !#C* 
C* !!!!!!!!! BY !!!!!!!! #C* 
C* ! MARTIN ! J#M* ! SLUCUTT ! #C* 
ZAAAAAAAAAAAAAAAAAAAZ * 



•'YOUR ! MESSAGE ! WILL ! FOLLOW ! SHORTLY#MMM J 
•'LOADING#N* ! PLEASE ! WAIT#MMM* 



space P Z 
T56K 



Master 



E137K P F 



Pase 1 



Sunday l(f n January 1999. 



The master routine is made-up of the following parts: 



Section of Master Routine Location 


Subroutine MS 1 prints a single row of a big letter. The location of the letter in memory 
is given as a parameter in location 4F 





Subroutine MS2 reads characters on an EDSAC tape into the memory location 
specified by the C parameter upwards, stopping when a line-feed or blank tape 
character is read 


490 


Main routine 


810 


Variables 


M 


Constants 


A 


Big letter widths and bit patterns 


V 



Notes: 



• The program needs to test for the equality of two memory locations and this could not be avoided. 
The following routine was developed to test the equality of 2M and 6M, for example: 



63 
64 
65 
66 
67 

68 

69 

70 
71 

72 



80 

81 



T 
A 
S 
G 

S 

E 
T 



F 
M 

M 



jo e 

A 

jo e 

F 



Clear accumulator (if required) 
Calculate difference between two values 

Branch if negative (not equal) 

Subtract 1 (stored in location A) 

Branch if positive (not equal) 

Two values are equal (Ace. was at 68 and -1 at 70) 

Routine if equal 



Routine if not equal 



• With the output of the teleprinter as shown below for the message "HELLO&", the variables would 
be as follows: 



H H 

H H 



EEEEE L 
E L 

Teleprinter position 



L 
L 



000 
O 



M 
1M 

2M 
3M 

4M 
5M 
6M 
7M 
8M 



= -3 Row count: initially = -5, finally = 0. 

= HF Output character (H). 

= (|)F Space character. 

= -4 Width count: initially = -7, finally = 0. 

(Initially = negative width of big letter including gap afterwards). 
= &89F (1 100...) Remaining bit pattern: initially = 01111 100.... 
= 5 Input character count (number of characters in the current line). 

= 24 Last input character (value of line-feed in this example). 

= 1 Output character count (The first character is being printed on the row). 

= =0 for letter shift, = 1 for figure shift. 
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The Big Letters Program (Part 2) 





G 


K 




T 


47 K 




P 


138 




P 


147 9 




T 


54 K 




P 


460 9 




P 


160 9 




T 


Z 


98 -> 


A 


3 F 


1 


T 


48 9 


2 


A 


4 F 


3 


A 


2 A 


4 


T 


5 9 


5 


(A 


C) 


6 


U 


1 M 


7 


L 


2 F 


8 


A 


8 M 


9 


L 


D 


10 


A 


55 F 


11 


A 


3 A 


12 


T 


13 9 


13 


(S 


V) 


14 


E 


48 9 


15 


T 


3 M 


16 


A 


1 M 


17 


L 


2 F 


18 


A 


M 


19 


A 


7 A 


20 


L 


D 


21 


A 


55 F 


22 


A 


2 A 


23 


T 


24 9 


24 


(A 


V) 


25 


T 


4 M 


26 


S 


8 M 


27 


E 


32 9 


28 


T 


F 


29 


A 


4 M 


30 


L 


64 F 


31 


T 


4 M 


27 -> 32 


A 


1 M 


33 


L 


1024 F 


34 


T 


1 M 


47 -> 35 


T 


F 


36 


A 


4 M 


37 


L 


D 


38 


U 


4 M 


39 


G 


42 9 


40 





2 M 


41 


E 


43 9 


39 -> 42 





1 M 


41 -> 43 


T 


F 


44 


A 


3 M 



Set M parameter 

Set A parameter 
Set C parameter 

Set V parameter 

Plant link 

(Get parameter, p from 4F) 
Form A p F to get output character 

Becomes A p F/D 

Form S w F to get character width, where 

w = ((character value * 8) + V + status) 
(Adjust if figure shift) 
(Shift left for address) 



Becomes S w F 

Jump to 48 - Character width is 

Set width counter 

Form A b F/D to get bit pattern, where 

b = ((character value * 8) + row count + 7) 

(Shift left for address) 



Becomes A b F/D 

Set bit pattern 

Get status 

Jump to 32 - In letter shift mode 

In figure shift mode so shift bit pattern 8 bits 



Shift output character for printing 

Left shift line code by 1 bit 

Jump to 42 - Bit pattern is 1. . . 
Space (Bit pattern is 0...) 
Jump to 4 3 

Output character 

Increment width counter 



(d) 
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45 


A 


A 




46 


U 


3 M 




47 


G 


35 e 


14 


-> 48 
-> 49 


(E 


F) 


86 


A 


3 F 




50 


T 


so e 




51 


T 


5 M 


79 


-> 52 


A 


5 M 




53 


L 


D 




54 


A 


54 F 




55 


A 


1 A 




56 


T 


75 e 




57 


I 


6 M 




58 


A 


6 M 




59 


S 


4 A 




60 


G 


65 e 




61 


S 


A 




62 


E 


65 e 




63 


T 


F 




64 
-> 65 


E 


80 


60, 62 


T 


F 




66 


A 


6 M 




67 


S 


5 A 




68 


G 


73 e 




69 


S 


A 




70 


E 


73 e 




71 


T 


F 




72 
-> 73 


E 


so e 


68,70 


T 


F 




74 


A 


6 M 




75 


(T 


C) 




76 


A 


5 M 




77 


A 


A 




78 


T 


5 M 




79 
-> 80 
-^ 81 


E 


52 e 


64, 72 


(E 


F) 


Enter 


X 


F 


134, 








136 


-^ 82 


T 


F 




83 


S 


6 A 




84 


T 


M 




85 


A 


85 e 




86 


G 


49 


MS2, 












129 


-^ 87 


T 


F 




88 


T 


7 M 


123 


-^ 89 


A 


7 M 




90 


S 


5 M 




91 


E 


124 




92 


T 


F 




93 


A 


7 M 




94 


L 


D 




95 


A 


54 F 




96 


T 


4 F 



Repeat to output remaining character row 



(d) 



Plant link 

Set input character count to zero 

(Left shift for address) 
Form T i F/D to transfer input character, 

where i = (C + input character count) 

Read character from tape 

Check if input character is a blank tape 

character 
(Jump to 65 - No blank tape) 

- (Jump to 65 - No blank tape) 

(Input character is a blank tape character) 

Jump to 80 



Check if input character is a line-feed 

(Jump to 73 - No line-feed) 

- (Jump to 73 - No line-feed) 

(Input character is a line-feed) 

Set (C + input character count) to input 

character 
(Becomes T i F/D) 

Increment input character count 

Repeat to read next character on tape 

No order 

Set row count to -5 

Read line from tape 

using subroutine MS2 

Set output character count to 

Calculate number bit patterns 

remaining to output on current row 

Jump to 124 - None remaining 

Calculate location of next (a) 

output character 

(Shift left for address) 



Set 4F as parameter for MSI 



(e) 



(b) 



(c) 
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97 


A 


97 e 


98 


G 


e 


MSI -> 99 


T 


F 


100 


A 


1 M 


101 


S 


9 A 


102 


G 


110 


103 


S 


A 


104 


E 


110 


105 


T 


F 


106 


A 


A 


107 


T 


8 M 


108 





11 A 


109 


E 


119 


02, 










104 -> 110 


T 


F 


111 


A 


1 M 


112 


S 


J A 


113 


G 


119 


114 


S 


A 


115 


E 


119 


116 


T 


F 


117 


T 


8 M 


118 





12 A 


09, 113 






115 -> 119 


T 


F 


120 


A 


7 M 


121 


A 


A 


122 


T 


7 M 


123 


E 


89 


91 -> 124 





8 A 


125 


T 


F 


126 


A 


M 


127 


A 


A 


128 


U 


M 


129 


G 


87 


130 





8 A 


131 


X 


F 


132 


A 


6 M 


133 


S 


4 A 


134 


G 


82 


135 


S 


A 


136 


E 


82 


137 


Z 


F 


M 


P 


F 


1 


P 


F 


2 


* 


F 


3 


P 


F 


4 


P 


F 


5 


P 


F 


6 


P 


F 


7 


P 


F 


8 


P 


F 


A 


P 


D 


1 


T 


F 


2 


A 


F 



Print row of character 

using subroutine MSI 

Check if output character 

is a figure shift 
(Jump to 110 - No figure shift) 

- (Jump to 110 - No figure shift) 

(Output character is a figure shift) 
Set status to 1 

Figure shift 
Jump to 119 



Check if output character 

is a letter shift 
(Jump to 119 - No letter shift) 

- (Jump to 119 - No letter shift) 

] (Output character is a letter shift) 
Set status to 
Letter shift 



Increment output character count 

Repeat output bit pattern cycle 

Line-feed 

Increment row counter 



Repeat output row cycle 
Line-feed 
No order 

Check if last input character 
is a blank tape character 
(Repeat main routine - no blank tape) 

(Repeat main routine - no blank tape) 
Stop 



Row count 

Output character 

Space 

Width count 

Bit pattern 

Input character count 

Last input character 

Output character count 

= (= for letter shift, 



(a) 



(b) 



(c) 



1 for figure shift) 



= 1 

Transfer order 

Add order 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

V 
1 
2 
3 
4 
5 
6 
7 



9 

10 
11 
12 
13 
14 
15 

16 
17 
18 
19 
20 
21 
22 
23 

24 
25 
26 
27 
28 
29 
30 
31 

32 
33 
34 
35 
36 
37 
38 
39 

40 
41 

42 
43 
44 
45 
46 
47 



S 
P 
P 

P 
P 
A 
P 

P 

71 



P 

P 
* 

I 

K 
I 

P 

P 
P 

I 
* 

O 

I 

P 

P 

P 
* 

w 
w 

w 
w 

p 



12 
2 
3 



F 
F 
F 
D 
D 
F 
5 D 
7 D 
F 
F 



3 
3 

56 

1100 

84 

100 

56 



3 

2 

32 

1120 



J 1056 



32 
1056 



P 3 
P 3 
I 1080 
I 1092 
J 1048 
J 1056 
T 124 
P 



3 

3 

1080 

68 

24 



1080 



3 

24 

1064 

124 

8 

1032 



3 

3 

1148 

64 

120 

4 

120 



68 F 



3 D 



Subtract order 



(Value of blank tape) 
(Value of line-feed) 



= 16 

= 24 

= 5 

= 7 

Line-feed 

= 11 (Value of figure shift) 

= 15 (Value of letter shift) 

Figure shift 

Letter shift 

= 7 (Width of P) 
= 7 (Width of 0) 



1111 
1 1 
1111 
1 
1 



111 

I 11 
111 

II 1 
111 



7 (Width of 
4 (Width of 



111 
1 1 
111 
1 1 

11 1 



1 

11 

1 

1 

1 



7 
7 

1 
1 
1 1 



(Width of W) 
(Width of 2) 



1 
1 
1 

111 
1 1 



111 
1 1 
11 

1 
11111 



7 (Width of E) 
7 (Width of 3) 



11111 

1 

111 

1 

11111 



111 
1 1 

11 
1 1 

111 



7 (Width of R) 
7 (Width of 4) 



1111 
1 1 
1111 
1 1 
1 1 



11 
1 1 
11111 

1 

1 



7 (Width of T) 
7 (Width of 5) 



11111 
1 
1 
1 
1 



11111 

1 
1111 

1 
1111 
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48 
49 
50 
51 
52 
53 
54 
55 

56 
57 
58 
59 
60 
61 
62 
63 

64 
65 
66 
67 
68 
69 
70 
71 

72 
73 
74 
75 
76 
77 
78 
79 

80 
81 
82 
83 
84 
85 
86 
87 



89 
90 
91 
92 
93 
94 
95 

96 
97 
98 

99 
100 
101 
102 
103 



3 

3 

1084 

64 

120 

68 

56 



3 

3 
1148 
1028 
1032 
1040 
32 



3 
56 
68 
56 

68 



3 

3 

56 



P 
P 

I 
T 

W 
W 

w 
p 

p 

p 
I 
I 
I 
I 
u 
p 

p 
p 
I 
I 
I 
I 
I 
p 

p 
p 

u 
I 
I 
I 
u 
p 

p 

p 

* 

w 
w 
J 

R 

P 

P 
P 
P 
P 
P 
P 
P 
P 

P 3 

P 2 

U 1104 

I 

U 

P 1024 



1 D 



56 F 

F 



1092 F 



F 
F 



1084 
1028 
120 F 

F 

3 D 
F 
1024 F 
F 
F 
F 
F 
F 

F 
F 
F 
F 
F 
F 
F 
F 



D 
D 
F 
80 F 
F 
F 
F 
F 



7 (Width of Y) 
7 (Width of 6) 



1 1 

1 1 

1 

1 

1 



1111 
1 

1111 
1 1 

111 



7 (Width of U) 
7 (Width of 7) 



111 



11111 

1 
1 
1 
1 



3 (Width of I) 

7 (Width of 8) 
1 111 
1 11 
1 111 
1 11 
1 111 



7 (Width of 0) 
7 (Width of 9) 



111 
1 1 
1 1 
1 1 

111 



111 
1 1 

1111 
1 
1111 



7 (Width of J) 
(No character) 



( mil 








l 








l 






( i 


l 






( i 






= 


(Figure 


shi 


ft 


= 


(Figure 


shi 


ft 



7 (Width of 
5 (Width of 



1111 



1 



1 1 
1 1 



111 



1111 
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104 
105 
106 
107 
108 
109 
110 
111 

112 
113 
114 

115 
116 
117 
118 
119 

120 
121 
122 
123 
124 
125 
126 
127 

128 
129 
130 
131 
132 
133 
134 
135 

136 
137 
138 
139 
140 
141 
142 
143 

144 
145 
146 
147 
148 
149 
150 
151 

152 
153 
154 
155 
156 
157 
158 
159 

160 



P 

P 

* 

Q 

w 

R 

P 

P 
P 
I 
K 

s 

n 

i 

p 

p 
p 

p 
p 

p 
p 
p 
p 

p 

p 
p 
p 
p 

p 
p 
p 

p 
p 

i 

K 
I 
I 

P 

P 

P 
P 
P 
P 
P 
P 
P 

P 

P 

* 

I 
I 

I 

* 

P 



3 

3 

1024 

16 

124 

16 

1024 



3 

2 

1056 

64 

64 

64 

1056 



3 

3 

1084 

80 

56 

20 

120 



D 
D 
F 
F 
F 
F 
F 
F 

D 
F 
F 
F 
F 
F 
F 
F 

F 
F 

F 
F 
F 
F 
F 
F 

F 
F 
F 
F 
F 
F 
F 
F 

D 
D 
F 
F 
F 
F 
F 
F 

F 
F 
F 
F 
F 
F 
F 
F 

D 
D 
F 

F 



1072 

1024 F 

1072 F 

96 F 

F 

2 F 



7 (Width of Z) 
7 (Width of +) 
11111 



1 
1 
1 
11111 



1 
11111 

1 



7 (Width of 
4 (Width of 
1 



(') 



1 1 
1 11 
11 

1 11 
1 1 



(Letter shift) 
(Letter shift) 



(Blank tape) 
(Blank tape) 



7 (Width of F) 
7 (Width of $) 



11111 

1 

111 

1 

1 



1111 
1 1 

111 
1 1 
1111 



(Carriage return) 
(Carriage return) 



= 7 (Width 


of 


D) 


= 5 (Width 


of 


;) 


( 1111 






( 1 1 


11 




( 1 1 






( 1 1 


11 




( 1111 


11 





5 (Width of space) 
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161 
162 
163 
164 
165 
166 
167 

168 
169 
170 
171 
172 
173 
174 
175 

176 
177 
178 
179 
180 
181 
182 
183 

184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
196 
197 
198 
199 

200 
201 
202 
203 
204 
205 
206 
207 

208 
209 
210 
211 
212 
213 
214 
215 

216 
217 



3 

3 
1052 
1056 
1144 
1056 
1148 



P 

P 
I 
T 
W 
T 
I 
P 

P 
P 



F 
F 
F 
F 

F 
F 
F 

D 

D 
F 
F 
F 
F 
F 
F 



3 

2 
1024 
1024 
J 1024 

1072 

1 1120 F 
P F 



D 
D 
F 
F 

F 
F 



3 

2 
1024 
1024 



J 1024 



1120 
1120 



D 
F 
F 
F 
F 
F 
F 
F 

F 
F 
F 
F 

F 
F 
F 
F 



3 
2 

64 
32 
32 

32 
1088 F 

F 



D 
F 
F 
F 
F 
F 



3 

3 

1028 

8 

16 

32 

1088 



4 F 
4 F 



5 (Width of space 



7 (Width of H) 
7 (Width of £) 



7 

4 
1 
1 
1 
1 
11111 



(Width of 
(Width of 
1 
1 
1 
1 



( 1 


1 


111 ) 


( 1 


1 


1 ) 


( urn 


1111 ) 


( i 


1 


1 ) 


( i 


1 


11111 ) 


= 7 


(Width 


of N) 


= 5 


(Width 


of ,) 


( 1 


1 




( 11 


1 




( 1 


1 1 




( 1 


11 


11 ) 


( 1 


1 


11 ) 


= 7 


(Width 


of M) 


= 4 


(Width 


of . ) 


( 1 


1 




( 11 


11 




( 1 


1 1 




( 1 


1 


11 ) 


( 1 


1 


11 ) 


= 


(Line- 


feed) 


= 


(Line- 


feed) 



7 (Width of X) 
7 (Width of /) 
11 1 

11 1 

1 1 

11 1 

111 



8 (Width of G) 
8 (Width of #) 
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218 


U 


1060 F 


( 1111 1 1 ) 


219 


I 


126 F 


( i linn ) 


220 


I 


1572 F 


( l n l l ) 


221 


I 


638 F 


( l l linn ) 


222 


U 


1060 F 


( mi l l ) 


223 


P 


F 




224 


P 


3 D 


= 7 (Width of A) 


225 


P 


3 D 


= 7 (Width of -) 


226 


U 


F 


( 111 ) 


227 


I 


1024 F 


(11 ) 


228 


■k 


1148 F 


( urn urn ) 


229 


I 


1024 F 


(ii ) 


230 


I 


1024 F 


(ii ) 


231 


P 


F 




232 


P 


3 D 


= 7 (Width of B) 


233 


P 


3 D 


= 7 (Width of ?) 


234 


■k 


56 F 


( 1111 111 ) 


235 


I 


1092 F 


(1111 ) 


236 


■k 


8 F 


( 1111 1 ) 


237 


I 


1024 F 


(11 ) 


238 


■k 


16 F 


( 1111 1 ) 


239 


P 


F 




240 


P 


3 F 


= 6 (Width of C) 


241 


P 


2 F 


= 4 (Width of : ) 


242 


u 


F 


( 111 ) 


243 


I 


96 F 


(1 11 ) 


244 


I 


F 


( 1 ) 


245 


I 


96 F 


(1 11 ) 


246 


u 


F 


( 111 ) 


247 


p 


F 




248 


p 


3 D 


= 7 (Width of V) 


249 


p 


3 D 


= 7 (Width of =) 


250 


I 


1024 F 


(11 ) 


251 


I 


1148 F 


( 1 1 11111 ) 


252 


I 


1024 F 


(11 ) 


253 


T 


124 F 


( i i urn ) 


254 


W 


F 


( 1 ) 


255 "" P 


F 




256 E 


137 K 


1 Enter at location 81 


257 


P 


F 



a) Cycle to print a row of a character. 

b) Cycle to print an entire row. 

c) Cycle to print a line of the message. 

d) Cycle to output each individual letter/space of a row of character. 

e) Cycle to input a line of the message. 

Notes: 

1) Change to Z F to stop at beginning of the program and step through to check program. 

2) Used for inserting Z F to check program during development. 
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